type video

external init : unit -> unit = "ml_vr_init"
external open_video : string -> video = "ml_vr_open_video"
external gl_texture_of_frame : video -> int = "ml_vr_gl_texture_of_frame"
